;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL; Fonts:(CPTFONTB) -*-

;;; Defines the translations for the SYS logical host.  Other logical hosts
;;; can be defined the same way.

(fs:set-logical-pathname-host "SYS"
  :physical-host "LAMA" ; the actual computer where the sources are stored.
  ;; A list of pairs, which match components of logical pathname and
  ;; translate them to physical pathnames.
  :translations '(("CHAOS;" "<L.CUSTOMER-SITE>")
                  ("SITE;" "<L.CUSTOMER-SITE>")
                  ("*;*;*;" "<L.*.*.*>")
                  ("*;*;" "<L.*.*>")
                  ("*;" "<L.*>")))


@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------
@c ---------------------------------------------------------------------------

@c end xsys-trans
